home *** CD-ROM | disk | FTP | other *** search
/ A.C.E. 1 / ACE CD 1.iso / files / utils / acroarex.dms / in.adf / Examples / Marquis.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1994-06-09  |  1.2 KB  |  38 lines
  1. /* A sample ARexx program to create a "marquis"                */
  2. /* Execute it by entering "rx :rexx/marquis your name"         */
  3. /* For best results, run using the "ConMan" console handler    */
  4.  
  5. trace off
  6. parse arg YourName                     /* the critic's name    */
  7. CSI = '9B'x
  8.  
  9. /* Open our "marquis" window                                   */
  10. call open out,"con:0/0/640/60/Matinee Today  Shows at 2:30 and 4:30/Close/"
  11. if ~result then do
  12.    say "Open failure ... sorry"
  13.    exit 10
  14.    end
  15.  
  16. header = 'Now Playing on an Amiga near you!'
  17. call writech out,CSI'1;22H'header
  18.  
  19. /* Print out the critical acclaim                              */
  20. call writech out,CSI"5;10HTasty! ... T. Rex"
  21.  
  22. if YourName = '' then YourName = '(YOUR NAME HERE)'
  23. call writech out,CSI"5;40HEntertaining! ..." YourName
  24.  
  25. call writech out,CSI'0 p'              /* invisible cursor     */
  26. /* Cycle the message for a few times                           */
  27. message = "ARexx ... the interactive language for you!    "
  28. do for 5
  29.    do i=1 to length(message)
  30.       NewChar = CSI'3;75H'substr(message,i,1)
  31.       call writech out,NewChar||CSI'3;5H'||CSI'P'
  32.       do 25;/* waste some time */;end
  33.       end
  34.    end
  35.  
  36. /* No need to close the output file ... happens automagically  */
  37. exit
  38.